home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / patches / rspd_14 / rs_slave.ruf < prev    next >
Text File  |  1992-05-21  |  1KB  |  46 lines
  1. print ""
  2. print " ------------------------------------ "
  3. print "        EXET - Stephan Skrodzki"
  4. print "           Hard & Software"
  5. print " ------------------------------------ "
  6. print ""
  7. print "   Test der RS_Speed-Hardware SLAVE"
  8. print " ------------------------------------"
  9. print ""
  10. baudrate=2400
  11. send "   2400 Baud Verbindung OK"
  12. print
  13. rwait 20000,"   2400 Baud Verbindung OK"
  14. if status<>0 then 10
  15. baudrate=110
  16. wait 3000
  17. send "  38400 Baud Verbindung OK"
  18. print
  19. rwait 20000,"  38400 Baud Verbindung OK"
  20. if status<>0 then 10
  21. baudrate=134
  22. wait 3000
  23. send "  57600 Baud Verbindung OK"
  24. print
  25. rwait 20000,"  57600 Baud Verbindung OK"
  26. if status<>0 then 10
  27. baudrate=150
  28. wait 3000
  29. send " 115200 Baud Verbindung OK"
  30. print
  31. rwait 20000," 115200 Baud Verbindung OK"
  32. if status<>0 then 10
  33. wait 3000
  34. baudrate=2400
  35. print ""
  36. print " Test erfolgreich abgeschlossen."
  37. 20:
  38. print ""
  39. print " Testende."
  40. print " ------------------------------------ "
  41. print ""
  42. end
  43. 10:
  44. print " Fehler im Test."
  45. baudrate=2400
  46. goto 20